home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / AOCM.ZIP;1 / AOCM.BAS (.txt) next >
Encoding:
GW-BASIC  |  1993-05-28  |  1.6 KB  |  76 lines
  1. 1  CLS
  2. 10  REM *AOCM*
  3. 15  DIM A(50,50)
  4. 20  SCREEN 7:GOSUB 6000
  5. 25  LET C=15:LET X=100:LET Y=50
  6. 30  LINE (50,10)-(250,100),3,B
  7. 40  LOCATE 1,1:PRINT "COLOR: "C"                 "
  8. 60  GET (X,Y)-(X,Y),A
  9. 70  PSET (X,Y)
  10. 80  FOR T=1 TO 5:NEXT T
  11. 90  PRESET (X,Y)
  12. 100  LET I$=INKEY$:IF I$="" THEN 70
  13. 110  PUT (X,Y),A,XOR
  14. 120  IF I$="8" THEN IF Y<>10 THEN LET Y=Y-1
  15. 130  IF I$="4" THEN IF X<>50 THEN LET X=X-1
  16. 140  IF I$="6" THEN IF X<>250 THEN LET X=X+1
  17. 150  IF I$="2" THEN IF Y<>100 THEN LET Y=Y+1
  18. 160  IF I$=" " THEN GOSUB 1000
  19. 170  IF I$="L" THEN GOSUB 2000
  20. 180  IF I$="F" THEN GOSUB 3000
  21. 190  IF I$="C" THEN GOSUB 4000
  22. 200  IF I$="X" THEN GOSUB 5000
  23. 210  IF I$="T" THEN GOSUB 6000
  24. 215  GET (X,Y)-(X,Y),A
  25. 220  GOTO 60
  26. 230  END
  27. 1000  REM *PLOT Subroutine"
  28. 1010  PSET (X,Y),C
  29. 1015  IF W=1 THEN 1030
  30. 1020  PRINT #1,CHR$(223) CHR$(227) CHR$(C+50) CHR$(X) CHR$(Y+40)
  31. 1030  RETURN
  32. 2000  REM *LINE Subroutine*
  33. 2004  LET W=1
  34. 2005  GOSUB 1000
  35. 2006  LET W=0
  36. 2010  LOCATE 1,1:PRINT "MOVE TO END OF LINE, PRESS SPACE"
  37. 2015  LET Q=Y:LET R=X
  38. 2020  LET I$=INKEY$
  39. 2024  GET(R,Q)-(R,Q),A
  40. 2025  PSET(R,Q):FOR I=1 TO 5:NEXT I
  41. 2026  PRESET (R,Q)
  42. 2027  PUT (R,Q),A,XOR
  43. 2028  IF I$="" THEN 2020
  44. 2030  IF I$="8" THEN IF Q<>10 THEN LET Q=Q-1
  45. 2040  IF I$="4" THEN IF R<>50 THEN LET R=R-1
  46. 2050  IF I$="6" THEN IF R<>250 THEN LET R=R+1
  47. 2060  IF I$="2" THEN IF Q<>200 THEN LET Q=Q+1
  48. 2070  IF I$=CHR$(27) THEN 2120
  49. 2080  IF I$=CHR$(32) THEN 2100
  50. 2090  GOTO 2020
  51. 2100  LINE (X,Y)-(R,Q),C
  52. 2110  PRINT #1,CHR$(223) CHR$(228) CHR$(C+50) CHR$(X) CHR$(Y+40) CHR$(R) CHR$(Q+40)
  53. 2112  LOCATE 1,1:PRINT "COLOR: "C"                       "
  54. 2115  LET X=R:LET Y=Q
  55. 2120  RETURN
  56. 3000  REM *FILL Subroutine*
  57. 3010  PAINT(X,Y),C,C
  58. 3020  PRINT #1,CHR$(223) CHR$(229) CHR$(C+50) CHR$(X) CHR$(Y+40)
  59. 3030  RETURN
  60. 4000  REM *COLOR Subroutine*
  61. 4010  LOCATE 1,1
  62. 4020  PRINT"CHANGE TO WHAT COLOR";
  63. 4030  INPUT C
  64. 4040  LOCATE 1,1:PRINT"COLOR: "C"                  "
  65. 4050  RETURN
  66. 5000  REM *QUIT Subroutine*
  67. 5010  LOCATE 1,1:INPUT"REALLY QUIT";X$
  68. 5020  IF X$<>"Y" THEN RETURN
  69. 5030  PRINT #1,"!":CLOSE #1:CLS:END
  70. 5040  RETURN
  71. 6000  REM *FILE Subroutine*
  72. 6010  LOCATE 13,30:PRINT "NAME OF DATA FILE:":INPUT D$
  73. 6015  CLOSE #1
  74. 6020  OPEN D$ FOR OUTPUT AS #1
  75. 6030  RETURN
  76.